extract_VS Function

private elemental function extract_VS(string, start, finish) result(ext_string)

Extract a varying substring from a varying string

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(in), optional :: start
integer, intent(in), optional :: finish

Return Value type(varying_string)


Source Code

  elemental function extract_VS (string, start, finish) result (ext_string)

    type(varying_string), intent(in) :: string
    integer, intent(in), optional    :: start
    integer, intent(in), optional    :: finish
    type(varying_string)             :: ext_string

    ext_string = extract(char(string), start, finish)

! Finish

    return

  end function extract_VS